(define (eval exp)
  (let ((p (vm:open)))
     (compile exp #f p '(halt)))
     (vm:finish p))
